home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / unix / volume8 / kurses < prev    next >
Encoding:
Internet Message Format  |  1987-02-08  |  19.0 KB
  1. Subject:  v08i052:  A program to call curses(3) functions
  2. Newsgroups: mod.sources
  3. Approved: mirror!rs
  4.  
  5. Submitted by: sdcrdcf!trwrb!ries (Marc Ries)
  6. Mod.sources: Volume 8, Issue 52
  7. Archive-name: kurses
  8.  
  9. [  Interested parties may also want to see tput, in Volume 7.  --r$  ]
  10.  
  11. # Cut_Here-----Cut_Here-----Cut_Here---------Cut_Here
  12. #! /bin/sh
  13. # This is a shell archive, meaning:
  14. # 1. Remove everything above the #! /bin/sh line.
  15. # 2. Save the resulting text in a file.
  16. # 3. Execute the file with /bin/sh (not csh) to create:
  17. #    README
  18. #    att_kurses.mk
  19. #    bsd_kurses.mk
  20. #    kshtest
  21. #    kurses.1
  22. #    kurses.c
  23. #    shtest
  24. export PATH; PATH=/bin:/usr/bin:$PATH
  25. echo shar: "extracting 'README'" '(1007 characters)'
  26. if test -f 'README'
  27. then
  28.     echo shar: "will not over-write existing file 'README'"
  29. else
  30. cat << \RiesES_PIECES > 'README'
  31. Kurses (aka, curse) was published to the net several years ago.
  32.  
  33. With some changes, it has proved to be a powerful interpreter for
  34. manipulating  VDT  screens,  and  (especially  combined  with ksh
  35. functions)  can  be  a  "production"  quality  UNIX   application
  36. development tool.
  37.  
  38. The need arose  to  be  able  to  drive  "kurses"  scripts  under
  39. terminfo, and kurses has been (quickly) ported to SYSVR3.
  40.  
  41. Compile  it  for  pre-terminfo  UNIX's  via  the  'bsd_kurses.mk"
  42. makefile or for terminfo UNIX via 'att_kurses.mk'.
  43.  
  44. A man page is included (and note the origional  author,  Jonathan
  45. Bowen of Oxford, England).
  46.  
  47. Your can "test" kurses on your VDT using 'shtest' for the  Bourne
  48. shell  or 'kshtest' for the Korn shell.  Not *all* of the options
  49. have been thoroughly tested but the most useful  ones  should  be
  50. OK.
  51.  
  52. Please send bugs [features 8-{)] and fixes  and  improvements  to
  53. me:
  54.  
  55.         Marc A. Ries
  56.  
  57.         sdcrdcf!---\
  58.                 ihnp4!------\----- trwrb! --- ries
  59.                 ucbvax!-----/  
  60. RiesES_PIECES
  61. fi
  62. echo shar: "extracting 'att_kurses.mk'" '(547 characters)'
  63. if test -f 'att_kurses.mk'
  64. then
  65.     echo shar: "will not over-write existing file 'att_kurses.mk'"
  66. else
  67. cat << \RiesES_PIECES > 'att_kurses.mk'
  68. #
  69. # Makefile: kurses
  70. #  Created: Thursday, November 06, 1986
  71. #       By: Marc Ries (TRW Operations and Support Group)
  72. #
  73. CC     = /bin/cc
  74. OPTS   = -O -s 
  75. # DEFS   = -DBSD
  76. DEFS   = -DSYSV
  77. CFLAGS = $(OPTS) $(DEFS)
  78. SRCS   = kurses.c
  79. OBJS   = kurses.o
  80. # Define LIB2 if target system is Berkeley Version
  81. # LIB2    = -ltermcap
  82. LIBS    = -lcurses $(LIB2)
  83.  
  84. all:    kurses
  85.  
  86. kurses:    $(OBJS)
  87.     $(CC) $(CFLAGS) -o kurses $(OBJS) $(LIBS)
  88.  
  89. clean:
  90.     rm -f $(OBJS) a.out core
  91.  
  92. shar:
  93.     shar -v kurses.[1clyh] Makefile > kurses.shr
  94.  
  95. edit:
  96.     vi $(SRCS)
  97.  
  98. kurses.o:    kurses.c
  99. RiesES_PIECES
  100. fi
  101. echo shar: "extracting 'bsd_kurses.mk'" '(545 characters)'
  102. if test -f 'bsd_kurses.mk'
  103. then
  104.     echo shar: "will not over-write existing file 'bsd_kurses.mk'"
  105. else
  106. cat << \RiesES_PIECES > 'bsd_kurses.mk'
  107. #
  108. # Makefile: kurses
  109. #  Created: Thursday, November 06, 1986
  110. #       By: Marc Ries (TRW Operations and Support Group)
  111. #
  112. CC     = /bin/cc
  113. OPTS   = -O -s 
  114. DEFS   = -DBSD
  115. # DEFS   = -DSYSV
  116. CFLAGS = $(OPTS) $(DEFS)
  117. SRCS   = kurses.c
  118. OBJS   = kurses.o
  119. # Define LIB2 if target system is Berkeley Version
  120. LIB2    = -ltermcap
  121. LIBS    = -lcurses $(LIB2)
  122.  
  123. all:    kurses
  124.  
  125. kurses:    $(OBJS)
  126.     $(CC) $(CFLAGS) -o kurses $(OBJS) $(LIBS)
  127.  
  128. clean:
  129.     rm -f $(OBJS) a.out core
  130.  
  131. shar:
  132.     shar -v kurses.[1clyh] Makefile > kurses.shr
  133.  
  134. edit:
  135.     vi $(SRCS)
  136.  
  137. kurses.o:    kurses.c
  138. RiesES_PIECES
  139. fi
  140. echo shar: "extracting 'kshtest'" '(1779 characters)'
  141. if test -f 'kshtest'
  142. then
  143.     echo shar: "will not over-write existing file 'kshtest'"
  144. else
  145. cat << \RiesES_PIECES > 'kshtest'
  146. #!/bin/ksh
  147. trap 'kurses -cl;exit' 1 2 3 15
  148. function main_menu
  149. {
  150.  kurses \
  151.  -cm 0 1 \
  152.  -ce \
  153.  '*********************************** M E N U ************************************' \
  154.  -cm 0 2 -ce \
  155.  -cm 0 3 \
  156.  -ce \
  157.  '         1   Display Modules A thru P' \
  158.  -cm 0 4 \
  159.  -ce \
  160.  '         2   Display Modules Q thru Z' \
  161.  -cm 0 5 \
  162.  -ce \
  163.  '         3   Display Sub-Modules A thru Z' \
  164.  -cm 0 6 \
  165.  -ce \
  166.  '         4   Display HELP information' \
  167.  -cm 0 7 \
  168.  -ce \
  169.  '         5   Exit.' \
  170.  -cm 0 8 \
  171.  -ce \
  172.  -cm 0 9 \
  173.  -ce \
  174.  '             Enter Option: ' \
  175.  -cm 0 10 \
  176.  -ce \
  177.  -cm 0 22 \
  178.  '****************************  Default is Option 1  *****************************' \
  179.  -cm 27 9
  180.  ;
  181. }
  182. #
  183. function help_menu
  184. {
  185. kurses -cm 0 11
  186. cat  <<+ENDCAT
  187. ******************************  HELP INFORMATION  ******************************
  188. Option 1 - Help information for Option 1
  189.            
  190.            
  191.            
  192. Option 2 - Help information for Option 2
  193.            
  194.            
  195. Option 3 - Help information for Option 3
  196.            
  197. Option 5 - Exit this program.
  198. +ENDCAT
  199. }
  200. #
  201. function clrlwin
  202. {
  203.     kurses \
  204.     -cm 0 11 \
  205.     '*****************************************' \
  206.     '***************************************' \
  207.     -cm 0 12 -ce \
  208.     -cm 0 13 -ce \
  209.     -cm 0 14 -ce \
  210.     -cm 0 15 -ce \
  211.     -cm 0 16 -ce \
  212.     -cm 0 17 -ce \
  213.     -cm 0 18 -ce \
  214.     -cm 0 19 -ce \
  215.     -cm 0 20 -ce \
  216.     -cm 0 21 -ce \
  217.     -cm 0 22  \
  218.     '*************************************************************'
  219.         ;
  220. }
  221. # 
  222. kurses -cl
  223. status=loop
  224. while test $status = "loop"
  225. do
  226.  main_menu
  227.  read response
  228.  case "$response" in
  229.     4)  help_menu
  230.         status=loop
  231.         ;;
  232.     5)  kurses -cl
  233.         status=exit
  234.         exit
  235.         ;;
  236.     *)  clrlwin 
  237.         kurses \
  238.         -cm 13 9 -ce \
  239.         'Enter Option: '
  240.         status=loop
  241.         ;;
  242.  esac
  243. done
  244. RiesES_PIECES
  245. chmod +x 'kshtest'
  246. fi
  247. echo shar: "extracting 'kurses.1'" '(2606 characters)'
  248. if test -f 'kurses.1'
  249. then
  250.     echo shar: "will not over-write existing file 'kurses.1'"
  251. else
  252. cat << \RiesES_PIECES > 'kurses.1'
  253. .TH CURSE 1 "14 November 1986"
  254. .UC 4
  255. .SH NAME
  256. kurses \- screen functions
  257. .SH SYNOPSIS
  258. .B kurses
  259. [ options ] [ text ] ...
  260. .SH DESCRIPTION
  261. This command gives the user a method of updating the screen from a shell.
  262. The options are two letter variable names from (the Berkeley version of)
  263. .I curses.h
  264. as detailed in Appendix A of
  265. .I "Screen Updating and Cursor Movement Optimization: A Library Package".
  266. All the
  267. .I char*
  268. type variables are included.  In addition, two numeric options 
  269. (-li and -co) are recognized, so you can adapt your work to any 
  270. screen shape size.
  271. Some commonly used options are:
  272. .TP 6
  273. .B -cd
  274. Clear to end of Display.
  275. .TP 6
  276. .B -ce
  277. Clear to End of line.
  278. .TP 6
  279. .B -cl
  280. CLear screen.
  281. This is exactly like the
  282. .I clear
  283. command.
  284. .TP 6
  285. .B -cm
  286. Cursor Motion.
  287. This takes the next two numerical arguments on the command line to be the
  288. .I x
  289. and
  290. .I y
  291. coordinates of the desired position of the cursor from the
  292. .I home
  293. position
  294. .I (0,0)
  295. at the top lefthand corner of the screen.
  296. .TP 6
  297. .B -ho
  298. HOme cursor.
  299. This moves the cursor to the top lefthand corner of the screen.
  300. This is equivalent to
  301. .I -cm 0 0.
  302. .TP 6
  303. .B -ll
  304. Last Line.
  305. This moves the cursor to the bottom lefthand corner of the screen.
  306. This is equivalent to
  307. .I -cm 0 23
  308. on a standard 24 line screen.
  309. .TP 6
  310. .B -se
  311. Standout End (may leave space).
  312. .TP 6
  313. .B -so
  314. Stand Out begin (may leave space).
  315. This normally produces reverse video but depends on the terminal\'s
  316. capabilities.
  317. .TP 6
  318. .B -ue
  319. Underline Ending sequence.
  320. .TP 6
  321. .B -us
  322. Underline Starting sequence.
  323. .TP 6
  324. .B -xx
  325. Prints all allowable options.
  326. .PP
  327. The options may be given in upper or lower case.
  328. Letters after the first two characters are ignored
  329. (e.g.
  330. .B -clear
  331. may be used instead of
  332. .B -cl
  333. ).
  334. Any arguments not starting with a `-' are treated as text and are
  335. printed at the current cursor position in the current style
  336. (e.g. standout mode).
  337. For example, to print a message in standout mode at the center of a
  338. standard 80 by 24 character screen and leave the cursor at the bottom
  339. of the screen, the following sequence could be used:
  340. .PP
  341. .ti+8n
  342. kurses -cl -cm 34 11 -so \'Long Live UNIX\' -se -ll
  343. .SH SEE ALSO
  344. .I "Screen Updating and Cursor Movement Optimization: A Library Package,"
  345. Ken Arnold,
  346. .br
  347. clear(1) or tput(1),
  348. curses(3x),
  349. termcap(5) or terminfo(5)
  350. .SH AUTHORS
  351. Jonathan Bowen, PRG, Oxford, England
  352. .br
  353. Marc Ries, TRW, California
  354. .SH BUGS
  355. Some options will only work if the corresponding 
  356. .I termcap
  357. (if compiled for curses) or
  358. .I terminfo
  359. (if compiled for terminfo)
  360. entry has been set for the terminal in use (e.g. standout mode).
  361. Cursor motion may not work on some terminals.
  362. RiesES_PIECES
  363. fi
  364. echo shar: "extracting 'kurses.c'" '(9141 characters)'
  365. if test -f 'kurses.c'
  366. then
  367.     echo shar: "will not over-write existing file 'kurses.c'"
  368. else
  369. cat << \RiesES_PIECES > 'kurses.c'
  370.  
  371.  
  372. /*
  373.  * File name:        x %I%
  374.  * By:                  Marc Ries
  375.  * Latest change:    Thursday, November 13, 1986
  376.  * Purpose of this file:
  377.  *     Screen manipulations via a shell 
  378.  * 
  379.  */
  380. #include <curses.h>
  381. #ifndef BSD
  382. #include <term.h>
  383. #endif BSD
  384.  
  385. void exit();
  386. char *tparm();
  387.  
  388. outc (c)
  389. int  c;
  390. {
  391.     (void) putchar(c);
  392. }
  393.  
  394. main(argc, argv)
  395. int argc;
  396. char *argv[];
  397. {
  398.     char c1, c2, *s;
  399.     char *i_xy;
  400.     int x, y, errret;
  401.  
  402.     if (--argc <= 0) {
  403.         (void) fprintf(stderr,"Usage: kurses -xx ...\n");
  404.         exit(1);
  405.     }
  406. #ifndef BSD
  407.     if ((setupterm(0,1,&errret)) == -1) {
  408.         (void) fprintf(stderr, "Unknown terminfo terminal type!\n");
  409.         exit(1);
  410.     }
  411. #else
  412.     initscr();
  413. #endif BSD
  414.     while (--argc >= 0) {
  415.         ++argv;
  416.         if ((*argv)[0] == '-') {
  417.         c1 = (*argv)[1];
  418.         if ((c1 >= 'A') && (c1 <= 'Z')) c1 = c1+'a'-'A';
  419.         c2 = (*argv)[2];
  420.         if ((c2 >= 'A') && (c2 <= 'Z')) c2 = c2+'a'-'A';
  421.  
  422.         if ((c1 == 'x') && (c2 == 'x')) {
  423.             (void) printf("Legal options are:\n");
  424.             (void) printf("al,bc,bt,cd,ce,cl,cm,dc,dl,dm,do,ed,ei,ho\n");
  425.             (void) printf("ic,im,ip,ll,ma,nd,pc,se,sf,so,sr,ta,te,ti\n");
  426.             (void) printf("uc,ue,ul,us,vb,ve,vs\n");
  427.             (void) printf("Numeric valued capabilities:\n");
  428.             (void) printf("li and co\n");
  429.         }
  430.         else if ((c1 == 'a') && (c2 == 'l')) {
  431. #ifndef BSD
  432.                         tputs(key_il, 1, outc);
  433. #else
  434.                         tputs(AL, 1, outc);
  435. #endif BSD
  436.                 }
  437. #ifndef BSD
  438.         else if ((c1 == 'b') && (c2 == 'c')) {
  439.             (void) printf("%s",cursor_left); 
  440.         }
  441.         else if ((c1 == 'b') && (c2 == 't')) {
  442.                         tputs(back_tab, 1, outc);
  443.         }
  444. #else
  445.         else if ((c1 == 'b') && (c2 == 'c')) (void) printf("%s",BC);
  446.         else if ((c1 == 'b') && (c2 == 't')) (void) printf("%s",BT);
  447. #endif BSD
  448.         else if ((c1 == 'c') && (c2 == 'd')) {
  449. #ifndef BSD
  450.                         tputs(clr_eos, 1, outc);
  451. #else
  452.                         tputs(CD, 1, outc);
  453. #endif BSD
  454.                 }
  455.         else if ((c1 == 'c') && (c2 == 'e')) {
  456. #ifndef BSD
  457.                         putp(clr_eol);
  458. #else
  459.                         tputs(CE, 1, outc);
  460. #endif BSD
  461.                 }
  462.         else if ((c1 == 'c') && (c2 == 'l')) {
  463. #ifndef BSD
  464.                         putp(clear_screen);
  465. #else
  466.                         tputs(CL, 1, outc);
  467. #endif BSD
  468.                 }
  469.         else if ((c1 == 'c') && (c2 == 'm')) {
  470.             if ((argc -= 2) < 0) {
  471.                 (void) fprintf(stderr,"Usage: kurses -cm X Y\n");
  472.                 exit(1);
  473.             }
  474.             x = (char)atoi(*++argv);
  475.             y = (char)atoi(*++argv);
  476. #ifndef BSD
  477.              i_xy = (tparm(cursor_address,y,x));
  478.              tputs(i_xy,0,outc);
  479. #else
  480.             movecursor(x,y);
  481. #endif BSD
  482.         }
  483. #ifndef BSD
  484.         else if ((c1 == 'c') && (c2 == 'o')) (void) printf("%d", columns);
  485. #else
  486.         else if ((c1 == 'c') && (c2 == 'o')) (void) printf("%d", COLS);
  487. #endif BSD
  488.         else if ((c1 == 'd') && (c2 == 'c')) {
  489. #ifndef BSD
  490.                         tputs(parm_dch, 1, outc);
  491. #else
  492.                         tputs(DC, 1, outc);
  493. #endif BSD
  494.                 }
  495.         else if ((c1 == 'd') && (c2 == 'l')) {
  496. #ifndef BSD
  497.                         tputs(key_dl, 1, outc);
  498. #else
  499.                         tputs(DL, 1, outc);
  500. #endif BSD
  501.                 }
  502. #ifndef BSD
  503.         else if ((c1 == 'd') && (c2 == 'm')) {
  504.             (void) printf("%s",enter_delete_mode);
  505. #else
  506.         else if ((c1 == 'd') && (c2 == 'm')) (void) printf("%s",DM);
  507.         else if ((c1 == 'd') && (c2 == 'o')) (void) printf("%s",DO);
  508.         else if ((c1 == 'e') && (c2 == 'd')) (void) printf("%s",ED);
  509.         else if ((c1 == 'e') && (c2 == 'i')) (void) printf("%s",EI);
  510.         else if ((c1 == 'h') && (c2 == 'o')) {
  511.             if (*HO != '\0') (void) printf("%s",HO);
  512.             else movecursor(0,0);
  513. #endif BSD
  514.         }
  515. #ifndef BSD
  516.         else if ((c1 == 'd') && (c2 == 'o')) {
  517.             (void) printf("%s",cursor_down); 
  518.         }
  519.         else if ((c1 == 'e') && (c2 == 'd')) {
  520.             (void) printf("%s",exit_delete_mode); 
  521.         }
  522.         else if ((c1 == 'e') && (c2 == 'i')) {
  523.             (void) printf("%s",exit_insert_mode); 
  524.         }
  525.         else if ((c1 == 'h') && (c2 == 'o')) { 
  526.             putp(cursor_home);
  527.         }
  528. #endif BSD
  529.         else if ((c1 == 'i') && (c2 == 'c')) {
  530. #ifndef BSD
  531.                         tputs(insert_character, 1, outc);
  532. #else
  533.                         tputs(IC, 1, outc);
  534. #endif BSD
  535.                 }
  536. #ifndef BSD
  537.         else if ((c1 == 'i') && (c2 == 'm')) {
  538.             (void) printf("%s",enter_insert_mode);
  539.         }
  540. #else
  541.         else if ((c1 == 'i') && (c2 == 'm')) (void) printf("%s",IM);
  542. #endif BSD
  543.         else if ((c1 == 'i') && (c2 == 'p')) {
  544. #ifndef BSD
  545.                         tputs(insert_padding, 1, outc);
  546. #else
  547.                         tputs(IP, 1, outc);
  548. #endif BSD
  549.                 }
  550. #ifndef BSD
  551.         else if ((c1 == 'l') && (c2 == 'l')) { 
  552.             if (*cursor_to_ll != '\0') {
  553.                 putp(cursor_to_ll);
  554.             }
  555.              i_xy = (tparm(cursor_address,lines-1,0));
  556.              tputs(i_xy,0,outc);
  557. #else
  558.         else if ((c1 == 'l') && (c2 == 'l')) {
  559.             if (*LL != '\0') (void) printf("%s",LL);
  560.             else movecursor(0,LINES-1);
  561. #endif BSD
  562.         }
  563. #ifndef BSD
  564.         else if ((c1 == 'l') && (c2 == 'i')) {
  565.             (void) printf("%d", lines);
  566.         }
  567.         else if ((c1 == 'n') && (c2 == 'd')) {
  568.             (void) printf("%s",cursor_right);
  569.         }
  570.         else if ((c1 == 'p') && (c2 == 'c')) {
  571.             (void) printf("%s",pad_char);
  572.         }
  573.         else if ((c1 == 's') && (c2 == 'e')) {
  574.                         tputs(exit_standout_mode, 1, outc);
  575.         }
  576. #else
  577.         else if ((c1 == 'l') && (c2 == 'i')) (void) printf("%d", LINES);
  578.         else if ((c1 == 'm') && (c2 == 'a')) (void) printf("%s",MA);
  579.         else if ((c1 == 'n') && (c2 == 'd')) (void) printf("%s",ND);
  580.         else if ((c1 == 'p') && (c2 == 'c')) (void) printf("%s",PC);
  581.         else if ((c1 == 's') && (c2 == 'e')) (void) printf("%s",SE);
  582. #endif BSD
  583.         else if ((c1 == 's') && (c2 == 'f')) {
  584. #ifndef BSD
  585.                         tputs(scroll_forward, 1, outc);
  586. #else
  587.                         tputs(SF, 1, outc);
  588. #endif BSD
  589.                 }
  590. #ifndef BSD
  591.         else if ((c1 == 's') && (c2 == 'o')) {
  592.                         tputs(enter_standout_mode, 1, outc);
  593.         }
  594.         else if ((c1 == 's') && (c2 == 'r')) { 
  595. #else
  596.         else if ((c1 == 's') && (c2 == 'o')) (void) printf("%s",SO);
  597.         else if ((c1 == 's') && (c2 == 'r')) {
  598. #endif BSD
  599. #ifndef BSD
  600.                         *scroll_reverse = tputs(scroll_reverse, 1, outc);
  601.                         (void) printf("%s",scroll_reverse);
  602. #else
  603.                         *SR = tputs(SR, 1, outc);
  604.                         (void) printf("%s",SR);
  605. #endif BSD
  606.                 }
  607.         else if ((c1 == 't') && (c2 == 'a')) {
  608. #ifndef BSD
  609.                         tputs(tab, 1, outc);
  610. #else
  611.                         tputs(TA, 1, outc);
  612. #endif BSD
  613.                 }
  614. #ifndef BSD
  615.         else if ((c1 == 't') && (c2 == 'e')) {
  616.             (void) printf("%s",exit_ca_mode); 
  617.         }
  618.         else if ((c1 == 't') && (c2 == 'i')) {
  619.             (void) printf("%s",enter_ca_mode); 
  620.         }
  621.         else if ((c1 == 'u') && (c2 == 'c')) {
  622.                         tputs(underline_char, 1, outc);
  623.         }
  624.         else if ((c1 == 'u') && (c2 == 'e')) {
  625.                         tputs(exit_underline_mode, 1, outc);
  626.         }
  627.         else if ((c1 == 'u') && (c2 == 'l')) {
  628.             (void) printf("%s",transparent_underline);
  629.         }
  630.         else if ((c1 == 'u') && (c2 == 's')) {
  631.                         tputs(enter_underline_mode, 1, outc);
  632.         }
  633.         else if ((c1 == 'v') && (c2 == 'b')) {
  634.                         tputs(flash_screen, 1, outc);
  635.         }
  636.         else if ((c1 == 'v') && (c2 == 'e')) {
  637.                         tputs(cursor_normal, 1, outc);
  638.         }
  639.         else if ((c1 == 'v') && (c2 == 's')) {
  640.                         tputs(cursor_visible, 1, outc);
  641.         }
  642. #else
  643.         else if ((c1 == 't') && (c2 == 'e')) (void) printf("%s",TE);
  644.         else if ((c1 == 't') && (c2 == 'i')) (void) printf("%s",TI);
  645.         else if ((c1 == 'u') && (c2 == 'c')) (void) printf("%s",UC);
  646.         else if ((c1 == 'u') && (c2 == 'e')) (void) printf("%s",UE);
  647.         else if ((c1 == 'u') && (c2 == 'l')) (void) printf("%s",UL);
  648.         else if ((c1 == 'u') && (c2 == 's')) (void) printf("%s",US);
  649.         else if ((c1 == 'v') && (c2 == 'b')) (void) printf("%s",VB);
  650.         else if ((c1 == 'v') && (c2 == 'e')) (void) printf("%s",VE);
  651.         else if ((c1 == 'v') && (c2 == 's')) (void) printf("%s",VS);
  652. #endif BSD
  653.         else (void) fprintf(stderr,"kurses: unknown option %s\n",*argv);
  654.         }
  655.         else for (s = argv[0]; *s != '\0'; s++) (void) putchar(*s);
  656.     }
  657. #ifndef BSD
  658.     resetterm();
  659.     exit(0);
  660. #else
  661.     endwin();
  662. #endif BSD
  663. }
  664.  
  665. #ifdef BSD
  666. movecursor(x,y)
  667. int x, y;
  668. {
  669.     char n, *s;
  670.     int i = 0, rev = 0;
  671.  
  672.     for (s = CM; *s != '\0'; s++) {
  673.               while (*s >= '0' && *s <= '9') *s++; /* strip padding nums */
  674.                 
  675.         if (*s != '%') (void) putchar(*s);
  676.         else {
  677.             switch (i) {
  678.                 case 0:    n = (rev?x:y);
  679.                     break;
  680.                 case 1:    n = (rev?y:x);
  681.                     break;
  682.                 default: n = '\0';
  683.             }
  684.             switch(*++s) {
  685.                 case 'd':    (void) printf("%d",n);
  686.                         i++;
  687.                         break;
  688.                 case '2':    (void) printf("%2d",n);
  689.                         i++;
  690.                         break;
  691.                 case '3':    (void) printf("%3d",n);
  692.                         i++;
  693.                         break;
  694.                 case '+':    n += (int)*++s;
  695.                 case '.':    (void) printf("%c",(char)n);
  696.                         i++;
  697.                         break;
  698.                 case '>':    if (n > (int)*++s) n+=(int)*++s;
  699.                         else *++s;
  700.                         break;
  701.                 case 'i':    x++; y++;
  702.                         break;
  703.                 case 'n':    x ^= 0140; y ^= 0140;
  704.                         break;
  705.                 case 'B':    x = (16*(x/10))+(x%10);
  706.                         y = (16*(y/10))+(y%10);
  707.                         break;
  708.                 case 'D':    x = (x-2*(x%16));
  709.                         y = (y-2*(y%16));
  710.                 case 'r':    rev++;
  711.                         break;
  712.                 default:    *--s;
  713.                 case '%':    break;
  714.             }
  715.         }
  716.     }
  717. }
  718. #endif BSD
  719. RiesES_PIECES
  720. fi
  721. echo shar: "extracting 'shtest'" '(1682 characters)'
  722. if test -f 'shtest'
  723. then
  724.     echo shar: "will not over-write existing file 'shtest'"
  725. else
  726. cat << \RiesES_PIECES > 'shtest'
  727. #!/bin/sh
  728. trap 'kurses -cl; exit' 1 2 3 15
  729.  kurses -cl \
  730.  -cm 0 1 \
  731.  -ce \
  732.  '*********************************** MENU ***************************************' \
  733.  -cm 0 2 -ce \
  734.  -cm 0 3 \
  735.  -ce \
  736.  '         1   Display Menu Subject 1.' \
  737.  -cm 0 4 \
  738.  -ce \
  739.  '         2   Display Alternate Menu Items.' \
  740.  -cm 0 5 \
  741.  -ce \
  742.  '         3   Display Page ID.' \
  743.  -cm 0 6 \
  744.  -ce \
  745.  '         4   Display HELP information.' \
  746.  -cm 0 7 \
  747.  -ce \
  748.  '         5   Exit.' \
  749.  -cm 0 8 \
  750.  -ce \
  751.  -cm 0 9 \
  752.  -ce \
  753.  '             Enter Option: ' \
  754.  -cm 0 10 \
  755.  -ce \
  756.  -cm 0 22 \
  757.  '****************************  Default is Option 1  *****************************' \
  758.  -cm 27 9
  759. # 
  760. status=loop
  761. while test $status = "loop"
  762. do
  763.  read response
  764.  case "$response" in
  765.     4)  kurses -cm 0 11
  766.     cat  <<+ENDCAT
  767. ******************************  HELP INFORMATION  ******************************
  768. Option 1 - Help information for Option 1
  769.            
  770.            
  771.            
  772. Option 2 - Help information for Option 2
  773.            
  774.            
  775. Option 3 - Help information for Option 3
  776.            
  777. Option 5 - Exit this program.
  778. +ENDCAT
  779.     kurses \
  780.         -cm 13 9 -ce \
  781.         'Enter Option: '
  782.         status=loop
  783.         ;;
  784.     5)  kurses -cl
  785.         status=exit
  786.         exit
  787.         ;;
  788.     *)  
  789.     kurses \
  790.     -cm 0 11 \
  791.     '*****************************************' \
  792.     '***************************************' \
  793.     -cm 0 12 -ce \
  794.     -cm 0 13 -ce \
  795.     -cm 0 14 -ce \
  796.     -cm 0 15 -ce \
  797.     -cm 0 16 -ce \
  798.     -cm 0 17 -ce \
  799.     -cm 0 18 -ce \
  800.     -cm 0 19 -ce \
  801.     -cm 0 20 -ce \
  802.     -cm 0 21 -ce \
  803.     -cm 0 22  \
  804.     '*************************************************************' \
  805.         -cm 13 9 -ce \
  806.         'Enter Option: '
  807.     status="loop"
  808.  esac
  809. done
  810.  
  811.  
  812. RiesES_PIECES
  813. chmod +x 'shtest'
  814. fi
  815. exit 0
  816. #    End of shell archive
  817.  
  818.